home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / s_to_z / tblinfo / tbldlg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-15  |  1.8 KB  |  84 lines
  1. {************************************************}
  2. { TBLDLG.PAS                                     }
  3. { Dialog unit for TblInfo component              }
  4. { Compiled with Borland Delphi 1.0               }
  5. { ⌐1995, SJHDesign Inc.                          }
  6. {************************************************}
  7.  
  8. unit TblDlg;
  9.  
  10. interface
  11.  
  12. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls, Tabs,
  13.   Buttons, ExtCtrls, Grids, Outline;
  14.  
  15. type
  16.   TMultPageDlg = class(TForm)
  17.     ButtonPanel: TPanel;
  18.     TabSet: TTabSet;
  19.     Notebook: TNotebook;
  20.     OKBtn: TBitBtn;
  21.     CancelBtn: TBitBtn;
  22.     GroupBox1: TGroupBox;
  23.     GroupBox2: TGroupBox;
  24.     GroupBox3: TGroupBox;
  25.     Label2: TLabel;
  26.     Label3: TLabel;
  27.     Label4: TLabel;
  28.     Label5: TLabel;
  29.     Label6: TLabel;
  30.     Label7: TLabel;
  31.     TblType: TLabel;
  32.     TblSize: TLabel;
  33.     NumRecs: TLabel;
  34.     NumFlds: TLabel;
  35.     NumIndex: TLabel;
  36.     LastChng: TLabel;
  37.     Label1: TLabel;
  38.     Label8: TLabel;
  39.     Label10: TLabel;
  40.     Label11: TLabel;
  41.     ScrollBox1: TScrollBox;
  42.     Outline1: TOutline;
  43.     Outline2: TOutline;
  44.     Outline3: TOutline;
  45.     Label9: TLabel;
  46.     Label12: TLabel;
  47.     Outline4: TOutline;
  48.     Outline5: TOutline;
  49.     Outline6: TOutline;
  50.     procedure FormCreate(Sender: TObject);
  51.     procedure TabSetClick(Sender: TObject);
  52.  
  53.   private
  54.     { Private declarations }
  55.   public
  56.     { Public declarations }
  57.   end;
  58.  
  59.  
  60. var
  61.   MultPageDlg: TMultPageDlg;
  62.  
  63. implementation
  64.  
  65. {$R *.DFM}
  66.  
  67. procedure TMultPagedlg.FormCreate(Sender: TObject);
  68. begin
  69.   { make the number of Tabs = number of Pages,
  70.     and have the same names }
  71.   TabSet.Tabs := Notebook.Pages;
  72. end;
  73.  
  74. procedure TMultPagedlg.TabSetClick(Sender: TObject);
  75. begin
  76.   { set visible Page to which Tab was clicked }
  77.   Notebook.PageIndex := TabSet.TabIndex;
  78. end;
  79.  
  80.  
  81.  
  82.  
  83. end.
  84.